home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / excard / fak.mod < prev    next >
Encoding:
Text File  |  1994-09-22  |  797 b   |  39 lines
  1. MODULE Fak;
  2.  
  3. FROM InOut IMPORT WriteString,WriteLn,Write,Read,ReadCard;
  4.  
  5. FROM ExFunc IMPORT ExFak;
  6.  
  7. FROM Excard IMPORT ExCard,ExWrite,ExRead;
  8.  
  9. VAR n   : CARDINAL;
  10.     ch  : CHAR;
  11.     fac : ExCard;
  12.     
  13. BEGIN 
  14.   Write(CHR(27));
  15.   Write('E');  (* clear screen *)
  16.   Write(CHR(27));
  17.   Write('e');  (* cursor on *)
  18.   REPEAT
  19.     WriteLn;
  20.     WriteString(' Zu welcher Zahl soll die Fakultaet bestimmt werden ?');
  21.     WriteLn;
  22.     ReadCard(n);
  23.     IF n>800 THEN
  24.       WriteLn;
  25.       WriteString(' Zahl > 800 kann nicht berechnet werden !')
  26.     ELSE
  27.       WriteLn;
  28.       ExFak(fac,n);
  29.       WriteString(' Fakultaet = ');
  30.       WriteLn;
  31.       ExWrite(fac);
  32.       WriteLn;
  33.     END;
  34.     WriteString(' Weiter y/n ?');
  35.     Read(ch);
  36.   UNTIL (ch='n') OR (ch='N');
  37. END Fak.
  38.  
  39.